PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be004.dxr/00092.ls

Text File | 2001-03-02 | 499 b | 20 lines

on exitFrame
  global DirectionUp
  set DirectionSpeed to 1
  set LastTick to the ticks
  set OriginalTick to the ticks
  repeat while (the ticks - OriginalTick) < 80
    set y to DirectionSpeed * (the ticks - LastTick)
    set LastTick to the ticks
    set the locV of sprite 15 to the locV of sprite 15 - y
    if (the locV of sprite 15 < 100) or (the locV of sprite 15 > 200) then
      set DirectionSpeed to -DirectionSpeed
    end if
    updateStage()
  end repeat
end

on mouseUp
  go(80)
end